www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\D_D_htm_cp.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file=inc_lanmu_bld.asp-->
<style type="text/css">
<!--
.STYLE2 {color: #FFFFFF; font-weight: bold; }
-->
</style>
<%
sttstrr="webname_settings"
if cstr(request("isqiye")&"")="1" then
sttstrr="webname_settings_qiye"
end if
'"&sttstrr&"
biao3="[ND_sys]"
set rs22d=server.CreateObject("adodb.recordset")
rs22d.open "select top 1 * from "&biao3&" where type='"&sttstrr&"'",conn,1,1
ddd1d=rs22d("data")
dddd12d=split(ddd1d,"|")
hhhta=cstr(dddd12d(4))
hhhtax=cstr(dddd12d(5))
htm_ext_ming=mid(hhhtax,2,len(hhhtax))
if clng(hhhta)<>1 then
%>
<br /><br /> 全站生成HTML静态功能未被启用,请先在 设置菜单里的基本设置里开启全站生成HTML静态功能再进入本页
<script language="javascript">
alert("全站生成HTML静态功能未被启用,请先在 设置菜单里的基本设置里开启全站生成HTML静态功能再进入本页");
</script>
<%
response.end
end if
%>
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 401px;width:730px">
<form action="D_D_do_htm_cp.asp" method="post" target="_self" id="myform" name="myform">
<table height="208" width=703 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px">
<tr>
<td height="94" colspan="3">
<table height="30" width=705 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td width="62" height="30" align="center" class="adminth"><p class="STYLE2">选择</p> </td>
<td width="643" height="30" align="center" class="adminth"><p class="STYLE2">内容分类 </p> </td>
</tr>
<%
biao="[ND_prod_class]"
sys_content_type=trim(request("sys_content_type"))
set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_tabd&"'",conn,1,1
if find_dataw(lanmu_taba,rs44g("id"),9)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
%>
<script language="javascript">
function CheckAll(){
var dd=parseFloat(document.getElementById("len1").value);
var dd1;
for(var i=1;i<=dd;i++)
{
try{
dd1=document.getElementById("htmcl_"+i);
dd1.checked=true;
}
catch(e){
}
}
}
</script>
<%
iiiyy=1
call next_cen("",0)
function next_cen(pid_list,deepth)
set rs=server.CreateObject("adodb.recordset")
pppcid="-123"
if pid_list<>"" then
ppplista=split(pid_list,",")
ppplistaubd=ubound(ppplista)-1
pppcid=ppplista(ppplistaubd)
end if
rs.open "select * from "&biao&" where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"')) and sys_content_type='"&sys_content_type&"')) order by orders asc",conn,1,1
if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa))
else
p_id=0
end if
do while not rs.eof
pid_list222=rs("parent_id_list")&","&rs("id")&","
deepth222=rs("deepth")+1
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"')) and sys_content_type='"&sys_content_type&"')) order by orders asc",conn,1,1
if rs2.eof then
if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa-1))
else
p_id=0
end if
if p_id=0 then p_id=-1
'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf
%>
<tr>
<td width="62" height="30" align="center" bgcolor="#cccccc"><input type=checkbox value="<%=rs("id")%>" id="htmcl_<%=iiiyy%>" name="htmcl_<%=iiiyy%>" /></td>
<td width="643" height="30" align="left" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if:iiiyy=iiiyy+1 %>">
<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next
%><%=rs("classname")%><font color="#FF0000"></font> </td>
</tr>
<%
if not rs.eof then rs.movenext
if rs.eof or rs.bof then
'response.write "</level0>"
'call next_cen_class(pid_list222,deepth222)
exit function
else
need_benji_next=1
end if
else
'response.write "<level0 id="""&rs("id")&""" parentTypeID="""
'if deepth=0 then response.write "-1" else response.write p_id
'response.write """ caption="""&rs("ClassName")&""" PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf
%>
<tr>
<td width="62" height="30" align="center" bgcolor="#cccccc"><input type=checkbox value="<%=rs("id")%>" id="htmcl_<%=iiiyy%>" name="htmcl_<%=iiiyy%>" /></td>
<td width="643" height="30" align="left" bgcolor="<%if iiiyy mod 2=0 then response.write "#ffffff" else response.write "#eeeeee":end if:iiiyy=iiiyy+1 %>">
<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next
%><%=rs("classname")%><font color="#FF0000"></font> </td>
</tr>
<%
call next_cen(pid_list222,deepth222)
if not rs.eof then rs.movenext
need_benji_next=1
if rs.eof or rs.bof then
'if deepth<>0 then response.write "</level0>"
'call next_cen_class(pid_list222,deepth222)
exit function
end if
end if
if need_benji_next=0 then
exit do
end if
need_benji_next=0
loop
end function
%>
</table></td>
</tr>
<tr bgcolor="#EDF8FE">
<td width="61" align="center" bgcolor="#CCCCCC">
<input type="hidden" id="len1" name="len1" value="<%=iiiyy%>" />
<input type="hidden" id="sys_content_type" name="sys_content_type" value="<%=sys_content_type%>" />
<input type="hidden" id="isqiye" name="isqiye" value="<%=request("isqiye")%>" />
<input type="hidden" id="dowhat" name="dowhat" value="0" />
<input class="Button" type="button" name="chkall" value="全选" onClick="CheckAll()"> </td>
<td width="640">当前模板里的当前频道里,url地址参数里传递分类id的url变量名
<script language=javascript>
function doposta(a){
document.getElementById("dowhat").value=a;
myform.submit();
}
</script>
:
<input name="cnnn" type="text" id="cnnn" value="cid" size="20" />
(一般不用改,默认就行)<br />
当前模板里的当前频道里,url地址参数里传递频道id的url变量名
<script language="JavaScript" type="text/javascript">
function doposta(a){
document.getElementById("dowhat").value=a;
myform.submit();
}
</script>
<script language="JavaScript" type="text/javascript">
function doposta(a){
document.getElementById("dowhat").value=a;
myform.submit();
}
</script>
<script language="JavaScript" type="text/javascript">function doposta(a){
document.getElementById("dowhat").value=a;
myform.submit();
}
</script>
:
<input name="cnnnn" type="text" id="cnnnn" value="id" size="20" />
(一般不用改,默认就行)<br />
当前模板里的当前频道里,url地址参数里传递详细页内容id的url变量名
<script language="JavaScript" type="text/javascript"></script>
<script language="JavaScript" type="text/javascript">function doposta(a){
document.getElementById("dowhat").value=a;
myform.submit();
}
</script>
:
<input name="arnnn" type="text" id="arnnn" value="cpid" size="20" />
(一般不用改,默认就行)<br />
当前模板里的当前频道里,url地址参数里传递专题id的url变量名
<script language="JavaScript" type="text/javascript">
function doposta(a){
document.getElementById("dowhat").value=a;
myform.submit();
}
</script>
<script language="JavaScript" type="text/javascript">
function doposta(a){
document.getElementById("dowhat").value=a;
myform.submit();
}
</script>
<script language="JavaScript" type="text/javascript">
function doposta(a){
document.getElementById("dowhat").value=a;
myform.submit();
}
</script>
<script language="JavaScript" type="text/javascript">function doposta(a){
document.getElementById("dowhat").value=a;
myform.submit();
}
</script>
:
<input name="znnn" type="text" id="znnn" value="zid" size="20" />
(一般不用改,默认就行)</td>
</tr>
<tr bgcolor="#EDF8FE">
<td width="61" height="53" bgcolor="#CCCCCC"><strong>请选择分<br />
类并进行<br />
生成htm<br />
操作</strong></td>
<td width="640" bgcolor="#EDF8FE"><input class="Button" type="button" value="生成选中的分类的所有未更新过或未生成的内容分类页的htm页" onclick="doposta(5)" />
(推荐)
<br />
<input class="Button" type="button" value="生成选中的分类内的所有未更新过或未生成的内容详细页的htm页" onclick="doposta(3)" />
(推荐)
<br />
<br />
<input class="Button" type="button" value="生成选中的分类的所有内容分类页的htm页" onclick="doposta(1)" />
<br />
<input class="Button" type="button" value="生成选中的分类内的所有内容详细页的htm页" onclick="doposta(2)" />
<br /></td>
</tr>
</table>
<br />
<table height="90" width="705" border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td height="30" align="center" class="adminth"><span class="STYLE2">生成其他 </span></td>
</tr>
<tr>
<td height="15" align="center" bgcolor="#EDF8FE">
<input class="Button" type="button" value="生成频道首页的htm页" onclick="doposta(7)" />
<input class="Button" type="button" value="生成频道最新专题页及热门和推荐专题页的htm页" onclick="doposta(8)" />
<br />
<input class="Button" type="button" value="生成频道各自定义专题的专题页的htm页" onclick="doposta(12)" />
<input class="Button" type="button" value="生成整站首页的htm页" onclick="doposta(9)" />
<br />
<%
dim connhtm
function openconnhtm()
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dir_set&nd_ttxa_mdb)
Set connhtm = Server.CreateObject("ADODB.Connection")
connhtm.open ConnStr
If Err Then
Err.Clear
Set connhtm = Nothing
Response.Write "数据库连接出错，请检查Config.asp文件中的数据库参数设置。"
Response.End
End If
end function
function closeconnhtm()
on error resume next
connhtm.close
set connhtm=nothing
end function
'=============a3a
call openconnhtm()
set rshtm2=server.CreateObject("adodb.recordset")
rshtm2.open "select count(*) from ND_htm_hrefs_cache where is_htmed='1'",connhtm,1,1
if not rshtm2.eof then
have_htmedok_num=rshtm2(0)
end if
rshtm2.close
set rshtm2=nothing
set rshtm2=server.CreateObject("adodb.recordset")
rshtm2.open "select count(*) from ND_htm_hrefs_cache",connhtm,1,1
if not rshtm2.eof then
now_htma_pos=rshtm2(0)
end if
rshtm2.close
set rshtm2=nothing
call closeconnhtm()
'=============a3a
if (have_htmedok_num<>now_htma_pos) then
%>
<input class="Button" type="button" value="继续上次生成整站所有htm页的进度来继续生成" onclick="doposta(11)" />
<input class="Button" type="button" value="重新生成整站所有页的htm页" onclick="doposta(10)" />
<%else%>
<input class="Button" type="button" value="重新生成整站所有页的htm页" onclick="doposta(10)" />
<%
end if
%>
<br />
<br /></td>
</tr>
<tr>
<td height="15" align="left" bgcolor="#EDF8FE"><strong>注意:修改某东西后，此时如果生成某些htm页后其页面内容未得到对应的刷新，<br />
请使用"重新生成整站所有页的htm页"这个功能</strong></td>
</tr>
</table>
<br /><br /><br /><br />
</form>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
</script>